home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
WINDOWS
/
MSWLOG12.ARJ
/
POLY.LG
< prev
next >
Wrap
Text File
|
1990-06-11
|
140b
|
9 lines
to poly :circumf :sides
make "incr 360 / :sides
make "ctr 0
10 fd :circumf
lt :incr
make "ctr :ctr + 1
if :ctr < :sides [go 10]
end